home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD004B.D64 / commodore 3dmaze (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.7 KB  |  635 lines
  1. 80 POKE53280,5:POKE53281,1
  2. 90 PRINTCHR$(14)
  3. 100 GOSUB6300:FORI=1TO5
  4. 110 A=TI+60:PRINT"[145]* 3-[196] [205]AZE[146]  *
  5. 120 Z[178][187](TI):[139]A[177]TI[137]120
  6. 130 A[178]TI[170]60:[153]"ON*           *
  7. 140 Z=RND(TI):IFA>TIGOTO140
  8. 150 NEXTI:DIMA(19,12),B(19,12)
  9. 160 A$(1)="[206]ORTH":A$(2)="[197]AST":A$(3)="[211]OUTH":A$(4)="[215]EST"
  10. 170 W$="[177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]"
  11. 180 POKE59468,14:PRINT"[147][212]HIS GAME LETS YOU EXPLORE A[160]3-[196][201][205][197][206][211][201][207][206][208][210][207][202][197][195][212][201][207][206][160]";
  12. 190 PRINT"OF A[160][204][193][194][217][210][201][206][212][200].":PRINT"[212]HE 64 WILL FIRST CONSTRUCT IT AND
  13. 200 [153]"SHOW IT TO YOU.  (null)OU CAN THEN WALK
  14. 205 PRINT"THROUGH IT!
  15. 210 [141]2370
  16. 220 [153]"(null)OU CAN HAVE A MAZE WITH A MAXIMUM SIZE OF 19 PEEK(null)(null)LEN(null)(null) LEFT$(null)(null)RIGHT$(null)(null)(null)(null)ATN(null)(null)(null)";
  17. 230 [153]" ANDCLOSE11   PEEK(null)(null)LEN(null)(null)CLOSE(null)VAL(null)(null)RIGHT$LENATN(null)(null)(null).CLOSE
  18. 240 REM CLEAR MAZE ARRAY
  19. 250 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  20. 260 M1[178]0:[129]I[178]0[164]19:[129]J[178]0[164]10:A(I,J)[178]0:B(I,J)[178]0:[130]J,I
  21. 270 [133]"LEFT$OW WIDE DO YOU WANT IT     CMDCMDCMDCMDCMDSINCMDCMDCMD";H
  22. 280 [139]H[178]0[176]H[177]19[167][153]"ONON";:[137]270
  23. 290 [133]"ONLEFT$OW DEEP                     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDSINCMDCMDCMD";V
  24. 300 [139]V[178]0[176]V[177]11[137]290
  25. 310 [153]"ON(null)OW CREATING A"H"(null)"V"LABYRINTH
  26. 320 A=H*V+1
  27. 330 Q=0:Z=0:X=INT(H*RND(H))+1
  28. 340 REM SAVE MAZE ENTRY POINT
  29. 350 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  30. 360 AA[178]X
  31. 370 A(X,0)[178]1:C[178]2
  32. 380 R[178]X:S[178]1:[137]470
  33. 390 [143] START OF MAZE BUILD ROUTINE
  34. 400 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  35. 410 IFR<>HGOTO450
  36. 420 IFS<>VGOTO440
  37. 430 R=1:S=1:GOTO460
  38. 440 R=1:S=S+1:GOTO460
  39. 450 R=R+1
  40. 460 IFA(R,S-1)=0GOTO410
  41. 470 IFR-1=0GOTO910
  42. 480 IFA(R-1,S-1)GOTO910
  43. 490 IFS-1=0GOTO690
  44. 500 IFA(R,S-2)GOTO690
  45. 510 IFR=HGOTO570
  46. 520 IFA(R+1,S-1)GOTO570
  47. 530 REM LEFT/DOWN/RIGHT
  48. 540 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  49. 550 X[178][181](3[172][187](1))[170]1
  50. 560 [145]X[137]1320,1380,1440
  51. 570 [139]S[179][177]V[137]600
  52. 580 [139]Z[178]1[137]670
  53. 590 Q[178]1:[137]630
  54. 600 [139]A(R,S)[137]670
  55. 610 [143] LEFT/DOWN/UP
  56. 620 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  57. 630 X=INT(3*RND(1))+1
  58. 640 ONXGOTO1320,1380,1530
  59. 650 REM LEFT/DOWN
  60. 660 REM"[184][184][184][184][184][184][184][184][184]
  61. 670 X[178][181](2[172][187](1))[170]1
  62. 680 [137]640
  63. 690 [139]R[178]H[137]830
  64. 700 [139]A(R[170]1,S[171]1)[137]830
  65. 710 [139]S[179][177]V[137]740
  66. 720 [139]Z[178]1[137]810
  67. 730 Q[178]1:[137]770
  68. 740 [139]A(R,S)[137]810
  69. 750 [143] LEFT/RIGHT/UP
  70. 760 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFRE
  71. 770 X=INT(3*RND(1))+1
  72. 780 ONXGOTO1320,1440,1530
  73. 790 REM LEFT/RIGHT
  74. 800 REM"[184][184][184][184][184][184][184][184][184][184]
  75. 810 X[178][181](2[172][187](1))[170]1
  76. 820 [137]780
  77. 830 [139]S[179][177]V[137]860
  78. 840 [139]Z[178]1[137]1320
  79. 850 Q[178]1:[137]890
  80. 860 [139]A(R,S)[137]1320
  81. 870 [143] LEFT/UP
  82. 880 [143]"FREFREFREFREFREFREFRE
  83. 890 X=INT(2*RND(1))+1
  84. 900 ONXGOTO1320,1530
  85. 910 IFS-1=0GOTO1150
  86. 920 IFA(R,S-2)GOTO1150
  87. 930 IFR=HGOTO1070
  88. 940 IFA(R+1,S-1)GOTO1070
  89. 950 IFS<>VGOTO980
  90. 960 IFZ=1GOTO1050
  91. 970 Q=1:GOTO1010
  92. 980 IFA(R,S)GOTO1050
  93. 990 REM DOWN/RIGHT/UP
  94. 1000 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
  95. 1010 X[178][181](3[172][187](1))[170]1
  96. 1020 [145]X[137]1380,1440,1530
  97. 1030 [143] DOWN/RIGHT
  98. 1040 [143]"FREFREFREFREFREFREFREFREFREFRE
  99. 1050 X=INT(2*RND(1))+1
  100. 1060 GOTO1020
  101. 1070 IFS<>VGOTO1100
  102. 1080 IFZ=1GOTO1380
  103. 1090 Q=1:GOTO1130
  104. 1100 IFA(R,S)GOTO1380
  105. 1110 REM DOWN/UP
  106. 1120 REM"[184][184][184][184][184][184][184]
  107. 1130 X[178][181](2[172][187](1))[170]1
  108. 1140 [145]X[137]1380,1530
  109. 1150 [139]R[178]H[137]1250
  110. 1160 [139]A(R[170]1,S[171]1)[137]1250
  111. 1170 [139]S[179][177]V[137]1200
  112. 1180 [139]Z[178]1[137]1440
  113. 1190 Q[178]1:[137]1230
  114. 1200 [139]A(R,S)[137]1440
  115. 1210 [143] RIGHT/UP
  116. 1220 [143]"FREFREFREFREFREFREFREFRE
  117. 1230 X=INT(2*RND(1))+1
  118. 1240 ONXGOTO1440,1530
  119. 1250 IFS<>VGOTO1280
  120. 1260 IFZ=1GOTO410
  121. 1270 Q=1:GOTO1290
  122. 1280 IFA(R,S)GOTO410
  123. 1290 GOTO1530
  124. 1300 REM LEFT
  125. 1310 REM"[184][184][184][184]
  126. 1320 A(R[171]1,S[171]1)[178]C
  127. 1330 C[178]C[170]1:B(R[171]1,S[171]1)[178]2:R[178]R[171]1
  128. 1340 [139]C[178]A[137]1670
  129. 1350 Q[178]0:[137]470
  130. 1360 [143] DOWN
  131. 1370 [143]"FREFREFREFRE
  132. 1380 A(R,S-2)=C
  133. 1390 C=C+1
  134. 1400 B(R,S-2)=1:S=S-1:IFC=AGOTO1670
  135. 1410 Q=0:GOTO470
  136. 1420 REM RIGHT
  137. 1430 REM"[184][184][184][184][184]
  138. 1440 A(R[170]1,S[171]1)[178]C
  139. 1450 C[178]C[170]1:[139]B(R,S[171]1)[178]0[137]1470
  140. 1460 B(R,S[171]1)[178]3:[137]1480
  141. 1470 B(R,S[171]1)[178]2
  142. 1480 R[178]R[170]1
  143. 1490 [139]C[178]A[137]1670
  144. 1500 [137]910
  145. 1510 [143] UP
  146. 1520 [143]"FREFRE
  147. 1530 IFQ=1GOTO1610
  148. 1540 A(R,S)=C:C=C+1:IFB(R,S-1)=0GOTO1560
  149. 1550 B(R,S-1)=3:GOTO1570
  150. 1560 B(R,S-1)=1
  151. 1570 S=S+1:IFC=AGOTO1670
  152. 1580 GOTO470
  153. 1590 REM EXIT AT TOP OF SCREEN
  154. 1600 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  155. 1610 Z[178]1
  156. 1620 [139]B(R,S[171]1)[178]0[137]1640
  157. 1630 B(R,S[171]1)[178]3:Q[178]0:[137]410
  158. 1640 B(R,S[171]1)[178]1:Q[178]0:R[178]1:S[178]1:[137]460
  159. 1650 [143] MAKE EXIT IF NOT THERE
  160. 1660 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  161. 1670 IFZ<>1THENX=INT(H*RND(1))+1:B(X,V-1)=B(X,V-1)+1
  162. 1680 REM END OF MAZE BUILD
  163. 1690 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  164. 1700 [133]"STR$O YOU WANT TO SEE ITSINCMDCMDCMD";Z$:[139]Z$[179][177]"Y"[167]X[178]TI:[137]2090
  165. 1710 [153]"ON(null)OU'VE GOT"H[170]V"CMD SECONDS TO LOOK AT IT!":[141]2700
  166. 1720 [141]1730:[151]33266[171]H[170]40[172]V[170]2[172]AA,30:[137]2080
  167. 1730 M1[178]1:[153]"LOAD";
  168. 1740 Z$[178]"":[139]H[179][177]19[167][129]I[178]1[164]19[171]H:Z$[178]Z$[170]"":[130]
  169. 1750 [139]V[179][177]11[167][129]I[178]1[164]11[171]V:[153]"";:[130]
  170. 1760 [143] 2D DISPLAY ROUTINE
  171. 1770 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  172. 1780 FORJ=VTO1STEP-1
  173. 1790 PRINTZ$;:FORI=1TOH
  174. 1800 IFB(I,J-1)=0GOTO1860
  175. 1810 IFB(I,J-1)=2GOTO1860
  176. 1820 REM PRINT TOP OF CELLS
  177. 1830 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  178. 1840 [153]"(null) ";
  179. 1850 [137]1870
  180. 1860 [153]"(null)TAN";
  181. 1870 [130]I
  182. 1880 [153]"(null)"
  183. 1890 [153]Z$;:[153]"(null)";
  184. 1900 [129]I[178]1[164]H
  185. 1910 [139]B(I,J[171]1)[179]2[137]1960
  186. 1920 [143] PRINT SIDES OF CELLS
  187. 1930 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  188. 1940 PRINT"  ";
  189. 1950 GOTO1970
  190. 1960 PRINT" [221]";
  191. 1970 NEXTI
  192. 1980 PRINT
  193. 1990 NEXTJ
  194. 2000 PRINTZ$;:FORI=1TOH
  195. 2010 IFI=AAGOTO2050
  196. 2020 REM PRINT BOTTOM OF MAZE
  197. 2030 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  198. 2040 [153]"(null)TAN";:[137]2060
  199. 2050 [153]"(null) ";
  200. 2060 [130]I
  201. 2070 [153]"(null)":[142]
  202. 2080 X[178]TI[170](H[170]V)[172]60
  203. 2090 [143] TRANSLATE ROUTINE
  204. 2100 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  205. 2110 REM FORI=1TOH:FORJ=0TOV-1
  206. 2120 REM A(I,J)=(3-B(I,J))*2
  207. 2130 REM NEXTJ,I
  208. 2140 W=AA
  209. 2150 REM COMPLETE CELL INFORMATION
  210. 2160 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  211. 2170 [129]J[178]0[164]V[171]1
  212. 2180 [129]I[178]1[164]H
  213. 2190 [139]J[137]2220
  214. 2200 [139]I[178]W[167]A(I,J)[178](3[171]B(I,J))[172]2:[137]2240
  215. 2210 M[178]1:[137]2230
  216. 2220 M[178](A(I,J[171]1)[175]2)[173]2
  217. 2230 A(I,J)[178](3[171]B(I,J))[172]2[170]M[172]8
  218. 2240 [139]I[178]1[167]M[178]1:[137]2260
  219. 2250 M[178](A(I[171]1,J)[175]4)[173]4
  220. 2260 A(I,J)[178]A(I,J)[170]M
  221. 2270 [130]I
  222. 2280 [130]J
  223. 2290 [143] SET UP START PARAMS
  224. 2300 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  225. 2310 IFX>TIGOTO2310
  226. 2320 PRINT"[147]";:GOSUB2370
  227. 2330 X=W:Y=0:Z=1:EL=1:ER=1
  228. 2340 GOTO3450
  229. 2350 REM INSTRUCTIONS
  230. 2360 REM"[184][184][184][184][184][184][184][184][184][184][184][184]
  231. 2370 [153]"(null)OU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
  232. 2380 [153]"ASCWAITMOVE ASC(null)(null)(null)ATN(null)STR$(null) ONE BLOCK;"
  233. 2390 [153]"(null)WAITTURNCLOSE(null)VALASC(null)CLOSE90 DEGREES;"
  234. 2400 [153]"(null)WAITTURNCLOSE(null)RIGHT$CHR$LEFT$(null)CLOSE90 DEGREES;"
  235. 2410 [153]"LEFT$WAITLEFT$VAL(null)(null)!"
  236. 2420 [141]2700:[142]
  237. 2430 [143] HELP ROUTINE
  238. 2440 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  239. 2450 PRINTCHR$(14):GOSUB1730:PRINT"[217]OU ARE HERE [166], FACING "A$(Z)
  240. 2460 POKE1522 -H+40*V+2*X-80*Y,102
  241. 2470 REM GET INSTRUCTIONS
  242. 2480 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  243. 2490 [139]Y[177]V[137]6180
  244. 2500 [153]"WHAT NOW?";
  245. 2510 [161]Z$:[139]Z$[179][177]""[137]2510
  246. 2520 [161]Z$:[139]Z$[178]""[137]2520
  247. 2530 [153]"         ";
  248. 2540 [139]Z$[178]"L"[137]2610
  249. 2550 [139]Z$[178]"R"[137]2650
  250. 2560 [139]Z$[178]"F"[137]3380
  251. 2570 [139]Z$[178]"H"[137]2450
  252. 2580 [137]2520
  253. 2590 [143] LEFT TURN
  254. 2600 [143]"FREFREFREFREFREFREFREFREFRE
  255. 2610 Z=Z-1:IFZ<1THENZ=Z+4
  256. 2620 GOTO3450
  257. 2630 REM RIGHT TURN
  258. 2640 REM"[184][184][184][184][184][184][184][184][184][184]
  259. 2650 Z[178]Z[170]1:[139]Z[177]4[167]Z[178]Z[171]4
  260. 2660 [137]3450
  261. 2670 [142]
  262. 2680 [143] PAUSE
  263. 2690 [143]"FREFREFREFREFRE
  264. 2700 I=TI+200
  265. 2710 IFI>TIGOTO2710
  266. 2720 RETURN
  267. 2730 REM ROTATE LH CELL AND LOOK
  268. 2740 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  269. 2750 [139]Z[178]1[167]A1[178]A[171]1:B1[178]B[171]1:[137]2800
  270. 2760 [139]Z[178]2[175]B[179]V[167]A1[178]A:B1[178]B:[137]2800
  271. 2770 [139]Z[178]3[167]A1[178]A[170]1:B1[178]B[171]1:[137]2800
  272. 2780 [139]Z[178]4[175]B[177]1[167]A1[178]A:B1[178]B[171]2:[137]2800
  273. 2790 EL[178]1:[142]
  274. 2800 F[178]A(A1,B1):[139]Z[178]1[137]2820
  275. 2810 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
  276. 2820 EL[178](F[175]2)[173]2:[142]
  277. 2830 [143] ROTATE RH CELL AND LOOK
  278. 2840 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  279. 2850 IFZ=1THENA1=A+1:B1=B-1:GOTO2900
  280. 2860 IFZ=2ANDB>1THENA1=A:B1=B-2:GOTO2900
  281. 2870 IFZ=3THENA1=A-1:B1=B-1:GOTO2900
  282. 2880 IFZ=4ANDB<VTHENA1=A:B1=B:GOTO2900
  283. 2890 ER=1:RETURN
  284. 2900 F=A(A1,B1):IFZ=1GOTO2920
  285. 2910 FORI=2TOZ:F=(FAND14)/2+(FAND1)*8:NEXT
  286. 2920 ER=(FAND2)/2:RETURN
  287. 2930 REM ROTATE AND LOOK ROUTINE
  288. 2940 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  289. 2950 [139]B[178]0[137]3050
  290. 2960 [139]B[177]V[167]E[178]3:[142]
  291. 2970 F[178]A(A,B[171]1):[139]Z[178]1[137]2990
  292. 2980 [129]I[178]2[164]Z:F[178](F[175]14)[173]2[170](F[175]1)[172]8:[130]
  293. 2990 C[178]F[175]1:D[178](F[175]4)[173]4:E[178](F[175]2)[173]2
  294. 3000 [139]C[178]0[167][141]2730
  295. 3010 [139]D[178]0[167][141]2830
  296. 3020 [142]
  297. 3030 [143] OUTSIDE MAZE
  298. 3040 [143]"FREFREFREFREFREFREFREFREFREFREFREFRE
  299. 3050 C=0:D=0:E=-1
  300. 3060 IFZ<>1GOTO3120
  301. 3070 E=1
  302. 3080 IFA=WTHENE=0
  303. 3090 RETURN
  304. 3100 REM NO MAN'S LAND
  305. 3110 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184]
  306. 3120 [139]Z[178]3[167]E[178]2:[142]
  307. 3130 [139]Z[178]2[175]A[178]H[167]E[178]2:[142]
  308. 3140 [139]Z[178]4[175]A[178]1[167]E[178]2:[142]
  309. 3150 [142]
  310. 3160 [143] INDEX TO NEXT CELL
  311. 3170 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  312. 3180 IFE>0GOTO3260
  313. 3190 IFZ=1THENB=B+1:RETURN
  314. 3200 IFZ=2THENA=A+1:RETURN
  315. 3210 IFZ=3THENB=B-1:RETURN
  316. 3220 IFZ=4THENA=A-1:RETURN
  317. 3230 REM MESSAGE ROUTINE
  318. 3240 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  319. 3250 [153]"";:[142]
  320. 3260 [139]E[178]0[137]3310
  321. 3270 [141]3250:[153]"YOU'LL HIT THE WALL"
  322. 3280 [141]3250:[139]C[178]0[175]D[178]0[175]B[167][153]"TURN":[137]3340
  323. 3290 [139]C[178]1[176](B[178]0[175]A[179]W)[167][153]"TURN RIGHT":[137]3340
  324. 3300 [153]"TURN LEFT":[137]3340
  325. 3310 [141]6300:[153]"ONON*    NO     *
  326. 3320 PRINT"*   MAN'S   *
  327. 3330 [153]"*   LAND    *
  328. 3340 S=1
  329. 3350 RETURN
  330. 3360 REM FORWARD ROUTINE
  331. 3370 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  332. 3380 A[178]X:B[178]Y
  333. 3390 [141]2950
  334. 3400 [141]3180
  335. 3410 X[178]A:Y[178]B
  336. 3420 [139]E[177]0[137]2490
  337. 3430 [143] 3D DISPLAY ROUTINE
  338. 3440 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  339. 3450 A=X:B=Y
  340. 3460 GOSUB2950
  341. 3470 REM 5 DEPTHS
  342. 3480 REM"[184][184][184][184][184][184][184][184]
  343. 3490 [129]T[178]1[164]5
  344. 3500 [141]3650
  345. 3510 [143] CHECK FOR NEXT DEPTH
  346. 3520 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  347. 3530 IFETHENT=5:GOTO3570
  348. 3540 GOSUB3180
  349. 3550 GOSUB2950
  350. 3560 IFE>1THENT=5:GOTO3570
  351. 3570 NEXTT
  352. 3580 IFX=WANDY=0ANDZ=1THENGOSUB6330:PRINT"[145]*  WAY  IN  *":GOTO3620
  353. 3590 IFX<>WANDY=0ANDZ=1THENGOSUB3250:PRINT"[145][145][145][145]EXTERNAL WALL":GOTO3610
  354. 3600 GOTO3620
  355. 3610 GOSUB3250:PRINT"[145][145]YOU'RE OUTSIDE!
  356. 3620 [137]2490
  357. 3630 [143] JUMP TO DISPLAY DEPTH
  358. 3640 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  359. 3650 ONTGOTO3660,4110,4740,5350,5900
  360. 3660 REM DISPLAY DEPTH 1
  361. 3670 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  362. 3680 [153][199](142):[153]"LOAD";
  363. 3690 [139]E[177]2[167][142]
  364. 3700 [139]E[179]0[176]E[177]1[167][141]3310:[142]
  365. 3710 [129]I[178]1[164]21:[139]C[178]1[167][153]"THEN";:[137]3770
  366. 3720 [139]Y[178]0[167][153]""[202](W$,(I[175]1)[170]1,8);:[137]3770
  367. 3730 [139]EL[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";:[137]3770
  368. 3740 [139]I[178]2[167][153]"TOTOTOTOTOTOTOSPC(";:[137]3770
  369. 3750 [139]I[179]18[167][153]"SPC(";:[137]3770
  370. 3760 [153]"       WAITSPC(";
  371. 3770 [139]E[178]0[167][153]"";:[137]3800
  372. 3780 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,22);:[137]3800
  373. 3790 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  374. 3800 [139]D[178]1[167][153]"FN":[137]3860
  375. 3810 [139]Y[178]0[167][153][202](W$,(I[175]1)[170]1,8):[137]3860
  376. 3820 [139]ER[178]1[167][153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[137]3860
  377. 3830 [139]I[178]2[167][153]"SPC(TOTOTOTOTOTOTO":[137]3860
  378. 3840 [139]I[179]18[167][153]"SPC(":[137]3860
  379. 3850 [153]"SPC(       "
  380. 3860 [130]
  381. 3870 [129]I[178]1[164]3:[139]C[178]1[176](X[178]W[175]Y[178]0)[137]3930
  382. 3880 [145]I[137]3890,3910,3920
  383. 3890 [139]EL[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)";:[137]3970
  384. 3900 [153]"       (null)";:[137]3970
  385. 3910 [153]"      (null) ";:[137]3980
  386. 3920 [153]"     (null)  ";:[137]3980
  387. 3930 [145]I[137]3940,3950,3960
  388. 3940 [153]"STEP";:[137]3970
  389. 3950 [153]"STEP ";:[137]3980
  390. 3960 [153]"STEP  ";:[137]3980
  391. 3970 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]3990
  392. 3980 [153]"                      ";
  393. 3990 [139]D[178]1[176](X[178]W[175]Y[178]0)[137]4050
  394. 4000 [145]I[137]4010,4030,4040
  395. 4010 [139]ER[178]0[167][153]"(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[137]4090
  396. 4020 [153]"(null)       ":[137]4090
  397. 4030 [153]" (null)      ":[137]4090
  398. 4040 [153]"  (null)     ":[137]4090
  399. 4050 [145]I[137]4060,4070,4080
  400. 4060 [153]"(null)":[137]4090
  401. 4070 [153]" (null)":[137]4090
  402. 4080 [153]"  (null)"
  403. 4090 [130]I
  404. 4100 [142]
  405. 4110 [143] DISPLAY DEPTH 2
  406. 4120 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  407. 4130 PRINT"";:Z$=""
  408. 4140 FORI=1TO2:PRINTZ$;:IFC=0GOTO4180
  409. 4150 ONIGOTO4160,4170
  410. 4160 PRINT"[205]";:GOTO4220
  411. 4170 PRINT"[205]";:GOTO4220
  412. 4180 ONIGOTO4190,4200
  413. 4190 PRINT"";:GOTO4220
  414. 4200 IFEL=1THENPRINT"[164][164][164][164]";:GOTO4220
  415. 4210 PRINT"[164]";
  416. 4220 IFE=0ORI=1THENPRINT"";:GOTO4240
  417. 4230 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  418. 4240 IFD=0GOTO4280
  419. 4250 ONIGOTO4260,4270
  420. 4260 PRINT"[206]":GOTO4320
  421. 4270 PRINT"[206]":GOTO4320
  422. 4280 ONIGOTO4290,4300
  423. 4290 PRINT:GOTO4320
  424. 4300 IFER=1THENPRINT"[164][164][164][164]":GOTO4320
  425. 4310 PRINT"[164]"
  426. 4320 NEXT
  427. 4330 FORI=1TO15:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO4380
  428. 4340 IFEL=1THENPRINT"[166][166][166][166][146]";:GOTO4380
  429. 4350 IFI=3THENPRINT"[164][164][164][166][146]";:GOTO4380
  430. 4360 IFI>12THENPRINT"   [166][146]";:GOTO4380
  431. 4370 PRINT"   [166][146]";
  432. 4380 IFE=0THENPRINT"";:GOTO4400
  433. 4390 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
  434. 4400 IFD=1THENPRINT"[165]":GOTO4450
  435. 4410 IFER=1THENPRINT"[166][166][166][166]":GOTO4450
  436. 4420 IFI=3THENPRINT"[166][146][164][164][164]":GOTO4450
  437. 4430 IFI>12THENPRINT"[166]   ":GOTO4450
  438. 4440 PRINT"[166]"
  439. 4450 NEXT
  440. 4460 FORI=1TO4:PRINTZ$;:IFC=1GOTO4530
  441. 4470 ONIGOTO4480,4500,4510,4520
  442. 4480 IFEL=0THENPRINT"[163][163][163][206]";:GOTO4580
  443. 4490 PRINT"   [206]";:GOTO4580
  444. 4500 PRINT"  [206] ";:GOTO4590
  445. 4510 PRINT" [206]  ";:GOTO4590
  446. 4520 PRINT"[206]   ";:GOTO4590
  447. 4530 ONIGOTO4540,4550,4560,4570
  448. 4540 PRINT"[169]";:GOTO4580
  449. 4550 PRINT"[169] ";:GOTO4590
  450. 4560 PRINT"[169]  ";:GOTO4590
  451. 4570 PRINT"[169]   ";:GOTO4590
  452. 4580 IFE=0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO4600
  453. 4590 PRINT"              ";
  454. 4600 IFD=1GOTO4670
  455. 4610 ONIGOTO4620,4640,4650,4660
  456. 4620 IFER=0THENPRINT"[205][163][163][163]":GOTO4720
  457. 4630 PRINT"[205]   ":GOTO4720
  458. 4640 PRINT" [205]  ":GOTO4720
  459. 4650 PRINT"  [205] ":GOTO4720
  460. 4660 PRINT"   [205]":GOTO4720
  461. 4670 ONIGOTO4680,4690,4700,4710
  462. 4680 PRINT"[223]":GOTO4720
  463. 4690 PRINT" [223]":GOTO4720
  464. 4700 PRINT"  [223]":GOTO4720
  465. 4710 PRINT"   [223]"
  466. 4720 NEXTI
  467. 4730 RETURN
  468. 4740 REM DISPLAY DEPTH 3
  469. 4750 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  470. 4760 [153]"";:Z$[178]Z$[170]""
  471. 4770 [129]I[178]1[164]3:[153]Z$;:[139]C[178]0[137]4820
  472. 4780 [145]I[137]4790,4800,4810
  473. 4790 [153]"(null)";:[137]4860
  474. 4800 [153]"(null)";:[137]4860
  475. 4810 [153]"(null)";:[137]4860
  476. 4820 [145]I[137]4830,4830,4840
  477. 4830 [153]"";:[137]4860
  478. 4840 [139]EL[178]1[167][153]"TOTOTO";:[137]4860
  479. 4850 [153]"TO";
  480. 4860 [139]E[178]0[176]I[179][178]2[167][153]"";:[137]4880
  481. 4870 [153]"TOTOTOTOTOTOTOTO";
  482. 4880 [139]D[178]0[137]4930
  483. 4890 [145]I[137]4900,4910,4920
  484. 4900 [153]"(null)":[137]4970
  485. 4910 [153]"(null)":[137]4970
  486. 4920 [153]"(null)":[137]4970
  487. 4930 [145]I[137]4940,4940,4950
  488. 4940 [153]:[137]4970
  489. 4950 [139]ER[178]1[167][153]"TOTOTO":[137]4970
  490. 4960 [153]"TO"
  491. 4970 [130]
  492. 4980 [129]I[178]1[164]9:[153]Z$;:[139]C[178]1[167][153]"THEN";:[137]5030
  493. 4990 [139]EL[178]1[167][153]"SPC(SPC(SPC(";:[137]5030
  494. 5000 [139]I[178]2[167][153]"TOTOSPC(";:[137]5030
  495. 5010 [139]I[177]7[167][153]"  WAITSPC(";:[137]5030
  496. 5020 [153]"  SPC(";
  497. 5030 [139]E[178]0[167][153]"";:[137]5050
  498. 5040 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  499. 5050 [139]D[178]1[167][153]"FN":[137]5100
  500. 5060 [139]ER[178]1[167][153]"SPC(SPC(SPC(":[137]5100
  501. 5070 [139]I[178]2[167][153]"SPC(TOTO":[137]5100
  502. 5080 [139]I[177]7[167][153]"SPC(  WAIT":[137]5100
  503. 5090 [153]"SPC("
  504. 5100 [130]
  505. 5110 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]5170
  506. 5120 [145]I[137]5130,5150,5160
  507. 5130 [139]EL[178]0[167][153]"TAB(TAB((null)";:[137]5210
  508. 5140 [153]"  (null)";:[137]5210
  509. 5150 [153]" (null) ";:[137]5220
  510. 5160 [153]"(null)  ";:[137]5220
  511. 5170 [145]I[137]5180,5190,5200
  512. 5180 [153]"STEP";:[137]5210
  513. 5190 [153]"STEP ";:[137]5220
  514. 5200 [153]"STEP  ";:[137]5220
  515. 5210 [139]E[178]0[167][153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:[137]5230
  516. 5220 [153]"        ";
  517. 5230 [139]D[178]1[137]5290
  518. 5240 [145]I[137]5250,5270,5280
  519. 5250 [139]ER[178]0[167][153]"(null)TAB(TAB(":[137]5330
  520. 5260 [153]"(null)  ":[137]5330
  521. 5270 [153]" (null) ":[137]5330
  522. 5280 [153]"  (null)":[137]5330
  523. 5290 [145]I[137]5300,5310,5320
  524. 5300 [153]"(null)":[137]5330
  525. 5310 [153]" (null)":[137]5330
  526. 5320 [153]"  (null)"
  527. 5330 [130]I
  528. 5340 [142]
  529. 5350 [143] DISPLAY DEPTH 4
  530. 5360 [143]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  531. 5370 PRINT"";:Z$=Z$+""
  532. 5380 FORI=1TO2:PRINTZ$;:IFC=0GOTO5420
  533. 5390 ONIGOTO5400,5410
  534. 5400 PRINT"[205]";:GOTO5460
  535. 5410 PRINT"[205]";:GOTO5460
  536. 5420 ONIGOTO5430,5440
  537. 5430 PRINT"";:GOTO5460
  538. 5440 IFEL=1THENPRINT"[164][164]";:GOTO5460
  539. 5450 PRINT"[164]";
  540. 5460 IFE=0ORI=1THENPRINT"";:GOTO5480
  541. 5470 PRINT"[164][164][164][164]";
  542. 5480 IFD=0GOTO5520
  543. 5490 ONIGOTO5500,5510
  544. 5500 PRINT"[206]":GOTO5560
  545. 5510 PRINT"[206]":GOTO5560
  546. 5520 ONIGOTO5530,5540
  547. 5530 PRINT:GOTO5560
  548. 5540 IFER=1THENPRINT"[164][164]":GOTO5560
  549. 5550 PRINT"[164]"
  550. 5560 NEXT
  551. 5570 FORI=1TO5:PRINTZ$;:IFC=1THENPRINT"[167]";:GOTO5620
  552. 5580 IFEL=1THENPRINT"[166][166][146]";:GOTO5620
  553. 5590 IFI=1THENPRINT"[164][166][146]";:GOTO5620
  554. 5600 IFI>4THENPRINT"[163][166][146]";:GOTO5620
  555. 5610 PRINT" [166][146]";
  556. 5620 IFE=0THENPRINT"";:GOTO5640
  557. 5630 PRINT"[166][166][166][166][146]";
  558. 5640 IFD=1THENPRINT"[165]":GOTO5690
  559. 5650 IFER=1THENPRINT"[166][166]":GOTO5690
  560. 5660 IFI=1THENPRINT"[166][146][164]":GOTO5690
  561. 5670 IFI>4THENPRINT"[166] ":GOTO5690
  562. 5680 PRINT"[166]"
  563. 5690 NEXT
  564. 5700 FORI=1TO2:PRINTZ$;:IFC=1GOTO5750
  565. 5710 ONIGOTO5720,5740
  566. 5720 IFEL=0THENPRINT"[163][206]";:GOTO5780
  567. 5730 PRINT" [206]";:GOTO5780
  568. 5740 PRINT"[206] ";:GOTO5790
  569. 5750 ONIGOTO5760,5770
  570. 5760 PRINT"[169]";:GOTO5780
  571. 5770 PRINT"[169] ";:GOTO5790
  572. 5780 IFE=0THENPRINT"[163][163][163][163]";:GOTO5800
  573. 5790 PRINT"    ";
  574. 5800 IFD=1GOTO5850
  575. 5810 ONIGOTO5820,5840
  576. 5820 IFER=0THENPRINT"[205][163]":GOTO5880
  577. 5830 PRINT"[205] ":GOTO5880
  578. 5840 PRINT" [205]":GOTO5880
  579. 5850 ONIGOTO5860,5870
  580. 5860 PRINT"[223]":GOTO5880
  581. 5870 PRINT" [223]":GOTO5880
  582. 5880 NEXTI
  583. 5890 RETURN
  584. 5900 REM DISPLAY DEPTH 5
  585. 5910 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  586. 5920 [153]"";:Z$[178]Z$[170]""
  587. 5930 [153]Z$;:[139]C[178]0[137]5950
  588. 5940 [153]"(null)";:[137]5960
  589. 5950 [153]"TO";
  590. 5960 [139]E[178]0[167][153]"";:[137]5980
  591. 5970 [153]"TOTO";
  592. 5980 [139]D[178]0[137]6000
  593. 5990 [153]"(null)":[137]6010
  594. 6000 [153]"TO"
  595. 6010 [129]I[178]1[164]3:[153]Z$;:[139]C[178]1[137]6030
  596. 6020 [153]"SPC(";:[137]6040
  597. 6030 [153]"THEN";
  598. 6040 [139]E[178]0[167][153]"";:[137]6060
  599. 6050 [153]"SPC(SPC(";
  600. 6060 [139]D[178]0[167][153]"SPC(":[137]6080
  601. 6070 [153]"FN"
  602. 6080 [130]
  603. 6090 [153]Z$;:[139]C[178]1[137]6110
  604. 6100 [153]"(null)";:[137]6120
  605. 6110 [153]"STEP";
  606. 6120 [139]E[178]1[167][153]"  ";:[137]6140
  607. 6130 [153]"TAB(TAB(";
  608. 6140 [139]D[178]1[137]6160
  609. 6150 [153]"(null)":[137]6170
  610. 6160 [153]"(null)"
  611. 6170 [142]
  612. 6180 [141]6300
  613. 6190 [153]"ON*  WAY OUT  *
  614. 6200 GOSUB2700:PRINTCHR$(14):IFM1THENPRINT"":GOTO6250
  615. 6210 PRINT"[147][200][197][210][197][160][201][211][160][212][200][197][160][205][193][218][197]":GOSUB2700
  616. 6220 GOSUB1730
  617. 6230 X=TI+(H+V)*60
  618. 6240 IFX>TIGOTO6240
  619. 6250 PRINT"[193][206][207][212][200][197][210][160][199][193][205][197]?";
  620. 6260 GETZ$:IFZ$<>""GOTO6260
  621. 6270 GETZ$:IFZ$=""GOTO6270
  622. 6280 PRINT"[147]":IFZ$="Y"GOTO220
  623. 6290 END
  624. 6300 REM PRINT TEXT BORDER
  625. 6310 REM"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  626. 6320 [153]"LOAD"
  627. 6322 [153]"           LENOMMODORE 64 3-STR$ (null)AZE "
  628. 6324 [153]"   FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  629. 6330 [153]"*************
  630. 6335 PRINT"*           *
  631. 6340 [153]"*           *
  632. 6350 PRINT"*           *
  633. 6380 [153]"*************ONON
  634. 6390 RETURN
  635.